1 POKE53280,0:POKE53281,0:PRINT"[147]DO YOU WANT INST.    ?"
2 PRINT"YES OR NO?
3 [153]"(Y=YES N=NO)WAIT"
4 [161]Y$:[139]Y$[178]""[167]4
5 [139]Y$[178]"Y"[167]7
6 [139]Y$[178]"N"[167]32
7 [151]36879,8
8 [153]"LOADSYSCLUB MAIL LIST (RANDOM FILE PROGRAM).   "
9 [153]"THIS IS A DISK OPERATED SYSTEM"
10 [153]"THAT WILL WORK WITH 1 1541 DISK"
11 [153]"DRIVE BUT REQUIRES 2 DRIVES #8"
12 [153]"AND #9 TO COPY THE DATA FILE."
13 [153]"TO START THE FIRST TIME INSERT A
14 PRINT"BLANK DISK THAT HAS BEEN FORMATTED      INTO #9."
15 PRINT"THEN RUN[146] THE PROGRAM. THIS PROGRAM"
16 PRINT"IS DESIGNED TO BE'USER FRIENDLY'.[146]"
17 GOSUB364
18 PRINT"[147] TO USE THIS PROGRAM REQUIRES:"
19 PRINT"1.C-64 COMPUTER.":PRINT"2.1 OR 2 1541 (OR 1540) DISK DRIVES"
20 PRINT"3.A PRINTER.
21 [153]"TO CONTINUE PRESS 'G' TO GET STARTEDWAITSYS"
22 [153]"PRESS 'N' TO STOP     PROGRAM   WAITSYS"
23 [161]Q$:[139]Q$[178]""[167]23
24 [139]Q$[178]"G"[167]32
25 [139]Q$[178]"N"[167][144]
26 [143]************************************************************
27 [143]**THIS PROGRAM WAS EXPANDED FROM A RANDOM FILE PROGRAM BY**"
28 REM**BY STEVE ALFORD AND WAYNE LOWERY OF NEW ORLEANS,LA     **
29 REM**TO USE PRINTER JUST ENTER OPTION YOU WANT AND CHECK    **
30 REM************************************************************
31 REMLABEL SIZE. REGULAR LABEL FROM RADIO SHACK 2 ACROSS WORK **
32 POKE53280,0:POKE53281,0
33 DIMI$(664):FD=0:FX=7:CH=2:FP=1:DIMA%(664):DIMB%(25):DIMBB$(10):DIMA3%(10)
34 FY=7
35 PRINT"[147][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]":
36 PRINT"  [158]INSERT DATA SHEET"
37 PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]":
38 PRINT"[158]    START PRESS [156]'S'"
39 GETP$:IFP$<>"S"THEN39
40 OPEN15,8,15,"I0":OPEN2,8,2,"#"
41 PRINT"[147][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]":
42 PRINT"INDEX FILE OPERATION"
43 PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
44 INPUT"     [158]NEW SHEET? N[157][157][157]";O$:PRINT""
45 IFO$="N"THEN50
46 IFO$<>"Y"THEN44
47 PRINT:PRINT"[147][158]    WAIT!":FORI=1TO664
48 PRINT"    [157][157][157][157][157]"I;:I$(I)="/"
49 PRINTI$(I):NEXT:GOTO54
50 OPEN5,8,5,"0:INDEX,S,R"
51 FORI=1TO664:INPUT#5,I$(I)
52 PRINT"[158]WAIT!     [157][157][157][157][157]"I;I$(I)
53 NEXTI:CLOSE5:FX=1:GOSUB135
54 PRINT"[147][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198]":
55 PRINT"     JOB MENU         ":
56 PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]":
57 PRINT
58 PRINT"[159]     1=ENTER NEW NAME"
59 PRINT"     2=DELETE"
60 PRINT"     3=PRINT NAMES"
61 PRINT"[156]     4=DISPLAY NAMES"
62 PRINT"[158]     5=SEARCH"
63 PRINT"     6=COPY MAIL LIST"
64 PRINT"     0=END"
65 INPUT"[158]1 , 2 , 3 , 4 , 0   1[157][157][157]";O$
66 IFO$="0"THENCLOSE15:CLOSE5:CLOSE2:END
67 IFO$="1"THEN77
68 IFO$="3"THEN312
69 IFO$="4"THEN154
70 IFO$="5"THEN113
71 IFO$="6"THEN339
72 IFO$<>"2"THEN54
73 GOTO97
74 REM***********************
75 REM* MASTER FILE CREATE  *
76 REM***********************
77 PRINT"[158] PLEASE ENTER FIRST LETTER OF LAST NAME (ENTER 0[146] WHEN THRU)":V=0
78 INPUTM$:IFM$="0"THEN92
79 GOSUB171:IFV=1THEN77
80 FORF=XXTOX1:IFI$(F)<>"/"THEN NEXTF
81 PRINT"RECORD NO. =";F
82 INPUT"(1)NAME    =.[157][157][157]";FB$(1)
83 INPUT"(2)ADDRESS =.[157][157][157]";FB$(2)
84 INPUT"(3)CITY    =.[157][157][157]";FB$(3)
85 INPUT"(4)ZIP     =.[157][157][157]";FB$(4)
86 INPUT"(5)TEL     =.[157][157][157]";FB$(5)
87 INPUT"(6)COMMENT =.[157][157][157]";FB$(6)
88 INPUT"(7)CLUBINFO=.[157][157][157]";FB$(7)
89 GOSUB218
90 I$(F)="1"
91 GOTO77
92 OPEN5,8,5,"@0:INDEX,S,W"
93 FORI=1TO664:PRINT#5,I$(I);CHR$(13);
94 PRINT"[147]WAIT!     [157][157][157][157][157]"I;I$(I)
95 NEXT:CLOSE5:GOSUB135
96 GOTO54
97 REM***********************
98 REM*  MASTER FILE DELETE *
99 REM***********************
100 PRINT"[147][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210]":
101 PRINT"  MASTER FILE DELETE"
102 PRINT"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]":PRINT
103 INPUT"[158]RECORD NO. =0[157][157][157]";F
104 IFF=0THEN108
105 IFI$(F)<>"1"THEN103
106 I$(F)="/":PRINT"[156]RECORD NO."F;"DELETE"
107 GOTO103
108 OPEN5,8,5,"@0:INDEX,S,W"
109 FORI=1TO664:PRINT#5,I$(I);CHR$(13);
110 PRINT"[147]WAIT!     [157][157][157][157][157]"I;I$(I)
111 NEXT:CLOSE5:GOSUB135
112 GOTO54
113 REM***********************
114 REM*  FILE SEARCH        *
115 REM***********************
116 PRINT"[147][158][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210]":
117 PRINT"      SEARCH "
118 PRINT"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]":PRINT:FY=7
119 INPUT"RECORD NO. = 0[157][157][157][158]";F
120 IFF=0THEN54
121 IFI$(F)<>"1"THEN119
122 GOSUB207
123 PRINT"[158](1)NAME     = [146]";FB$(1)
124 PRINT"[158](2)ADDRESS  = [146]";FB$(2)
125 PRINT"[158](3)CITY     = [146]";FB$(3)
126 PRINT"[158](4)ZIP      = [146]";FB$(4)
127 PRINT"[158](5)TEL      = [146]";FB$(5)
128 PRINT"[158](6)COMMENT  = [146]";FB$(6)
129 PRINT"[158](7)CLUBINFO.= [146]";FB$(7)
130 PRINT"---------------------"
131 GOSUB271
132 GOSUB256
133 IFT<>0THENRETURN
134 GOTO119
135 FORX=1TO664:A%(X)=0:NEXTX:Y=1:FORX=1TO664:IFI$(X)="1"THENA%(Y)=X:Y=Y+1
136 NEXTX:RETURN
137 PRINT"[147]RECORD   NAME"
138 XY=1:FX=1
139 FORX=XXTOX1:F=A%(X):GOSUB328:PRINTA%(X);FB$(1)
140 FORXZ=2TO1:PRINTFB$(XZ):NEXTXZ
141 REM:IFXY=10THENXY=1:GOTO1020
142 REM:XY=XY+1:NEXTX
143 NEXTX
144 GOSUB245
145 PRINT"[158]PRESS RETURN TO GO    BACK TO JOB MENU"
146 GETC$:IFC$<>CHR$(13)THEN146
147 GOTO54
148 PRINT:PRINT"CONTINUE? (Y)YES[146] [158](N)NO"
149 GETB$:IFB$=""THEN149
150 IFB$="N"THEN54
151 IFB$=CHR$(13)THEN153
152 IFB$<>"Y"THEN149
153 PRINT"[147]RECORD  NAME":GOTO142
154 PRINT"[147][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210]":
155 PRINT"  DISPLAY NAMES"
156 PRINT"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]":PRINT:FX=1
157 PRINT"[159] 1=DISPLAY ALL"
158 PRINT" 2=SELECT LETTER(A-Z)"
159 PRINT"[158] 3=SELECT NAME"
160 PRINT"[156] 0=RETURN TO MAIN MENU"
161 INPUT"[158] 1 , 2 , 3 , 0   1[157][157][157]";N$
162 IFN$="0"THEN54
163 IFN$="1"THEN167
164 IFN$="2"THEN168
165 IFN$<>"3"THEN161
166 GOTO175
167 XX=1:X1=Y-1:GOTO137
168 V=0:INPUT"LETTER (A-Z)";M$
169 GOSUB171:IFV=1THEN168
170 GOSUB193:GOTO195
171 MM=ASC(M$):IFMM>90ORMM<65THENPRINT"INVALID SELECTION":V=1:RETURN
172 XX=1:X1=25:X2=64
173 FORX=1TO26:X2=1+X2:IFMM=X2THENRETURN
174 XX=XX+25:X1=X1+25:NEXTX:STOP
175 PRINT"PLEASE ENTER LAST NAME,A SPACE,AND THEN FIRST INITIAL"
176 PRINT"EXAMPLE: ALFORD S"
177 INPUTA$
178 M$=LEFT$(A$,1):U=LEN(A$)
179 GOSUB171:GOSUB193:FY=5:R=0
180 FORX=1TOV-1:F=B%(X):GOSUB210:T=0
181 IFT=UTHENPRINT"[147]":GOSUB123:GOSUB185:NEXTX:T=0:GOTO154
182 T=T+1:E$=MID$(A$,T,1)
183 IFE$<>MID$(FB$(1),T,1)THENNEXTX:GOSUB188:T=0:GOTO154
184 GOTO181
185 PRINT"PRESS RETURN TO       CONTINUE"
186 GETC$:IFC$<>CHR$(13)THEN186
187 R=1:RETURN
188 IFR=1THENPRINT"[145][145]PRESS RETURN TO GO    BACK TO DISPLAY MENU":GOTO191
189 PRINT"[147]NAME NOT FOUND":PRINT:PRINT:PRINT:PRINT
190 PRINT"PRESS RETURN TO       CONTINUE"
191 GETC$:IFC$<>CHR$(13)THEN191
192 RETURN
193 V=1:FORX=XXTOX1:FORZ=1TOY:IFA%(Z)=XTHENB%(V)=X:V=V+1
194 NEXTZ:NEXTX:RETURN
195 PRINT"[147]RECORD  NAME"
196 FORX=1TOV-1:F=B%(X):GOSUB210:PRINTB%(X);FB$(1):IFX=16THEN201
197 NEXTX:PRINT
198 PRINT"PRESS RETURN TO GO    BACK TO JOB MENU"
199 GETC$:IFC$<>CHR$(13)THEN199
200 GOTO54
201 PRINT:PRINT"CONTINUE? NO(N) OR    YES(Y)"
202 GETB$:IFB$=""THEN202
203 IFB$="N"THEN54
204 IFB$=CHR$(13)THEN206
205 IFB$<>"Y"THEN202
206 PRINT"[147]RECORD  NAME"
207 REM***********************
208 REM* FDD BLOCK READ      *
209 REM***********************
210 GOSUB238
211 PRINT#15,"U1:";CH;FD;FT;FS
212 PRINT#15,"B-P:";CH;FP
213 GOSUB227
214 FORFI=1TOFY
215 INPUT#CH,FB$(FI):
216 NEXT
217 RETURN
218 REM***********************
219 REM* FDD BLOCK WRITE     *
220 REM***********************
221 GOSUB238
222 PRINT#15,"B-P:";CH;FP
223 FORFI=1TOFY:PRINT#CH,FB$(FI);CHR$(13);:NEXT
224 PRINT#15,"U2:";CH;FD;FT;FS
225 GOSUB227
226 RETURN
227 REM***********************
228 REM*  ERROR CHECK        *
229 REM***********************
230 INPUT#15,EN,EM$,ET,ES
231 IFEN=0THENRETURN
232 PRINT"ERROR STATUS:",EN;EM$;ET;ES
233 INPUT"CONTINUE?";Y$:IFY$="Y"THENRETURN
234 STOP
235 REM***********************
236 REM* SET TRACK & SECTOR  *
237 REM***********************
238 IFF<358THENF1=0:F2=22:F3=1:GOTO242
239 IFF>357ANDF<471THENF1=357:F2=20:F3=19:GOTO242
240 IFF>471ANDF<580THENF1=471:F2=19:F3=25:GOTO242
241 IFF>580THENF1=580:F2=18:F3=31
242 FT=INT(((F-F1)-1)/(F2-1))+F3
243 FS=F-F1-(FT-F3)*F2+(FT-F3-1)
244 RETURN
245 PRINT"DO YOU WISH A HARDCOPY[158]":
246 GETP$:IFP$="" THEN246
247 IFP$="N"THEN RETURN
248 IFP$="Y"THEN 249
249 OPEN4,4:CMD4:Q2=0
250 FORX=XXTOX1:F=A%(X):Q2=Q2+1:GOSUB210:
251 PRINT#4,CHR$(27)CHR$(69)A%(X);FB$(1)
252 IFQ2<>60THENPRINTQ2:NEXTX
253 IFX=X1+1THEN255
254 PRINT#4:PRINT#4:PRINT#4:PRINT#4:PRINT#4:PRINT#4:Q2=0:NEXTX
255 PRINT#4:CLOSE4:RETURN
256 PRINT"PRINT ADDRESS (Y/N)[146][158]"
257 GETH$:IFH$=""THEN257
258 IFH$="N"THENPRINT"[145][145][145]":RETURN
259 IFH$="Y"THENGOTO281
260 OPEN4,4:CMD4:PRINT#4,CHR$(27)CHR$(69)
261 PRINT#4," "TAB(R) FB$(1);" "
262 PRINT#4," "TAB(R) FB$(2);" "
263 PRINT#4," "TAB(R) FB$(3);" "
264 PRINT#4," "TAB(R) FB$(4);" "
265 PRINT#4," "TAB(R) FB$(5);" "
266 PRINT#4," "TAB(R) FB$(6);" "
267 PRINT#4," "TAB(R) FB$(7);" "
268 PRINT#4,CHR$(10)
269 PRINT#4:CLOSE4:RETURN
270 REM PRINT"[145][145][145]":PRINT"[147]":RETURN
271 PRINT"DO YOU WISH TO CORRECT"
272 GETZ$:IFZ$=""THEN272
273 IFZ$="Y"THEN275
274 RETURN
275 PRINT"[158]WHICH FIELD TO CHANGE [146]"
276 GETZ:IFZ<1THEN276
277 IFZ>8THEN276
278 PRINT"INPUT CORRECT DATA    [146]"
279 INPUTZ1$
280 FB$(Z)=Z1$:T=1:GOSUB221:T=0:RETURN
281 PRINT"[158]DO YOU WISH TO PRINT  ":
282 PRINT"LIST                  ":
283 PRINT"RETURN LABEL          ":
284 PRINT"[159]OR MAIL LABEL?        ":
285 PRINT"(L,R,M)[146]"
286 GETQ$:IFQ$=""THEN286
287 IFQ$="L"THEN310
288 IFQ$="R"THEN290
289 IFQ$="M"THEN300
290 OPEN4,4:CMD4:PRINT#4,CHR$(27)CHR$(69)
291 PRINT#4," "TAB(10) FB$(1);""
292 PRINT#4," "TAB(10) FB$(2);""
293 PRINT#4," "TAB(10) FB$(3);""
294 PRINT#4," "TAB(10) FB$(4);""
295 REM PRINT#4," "TAB(10)FB$(5);""
296 REM PRINT#4," "TAB(10)FB$(6);""
297 REM PRINT#4," "TAB(10)FB$(7);""
298 PRINT#4,CHR$(10)
299 GOTO269
300 OPEN4,4:CMD4: PRINT#4,CHR$(27)CHR$(69)
301 PRINT#4," "TAB(50)FB$(1)
302 PRINT#4," "TAB(50)FB$(2)
303 PRINT#4," "TAB(50)FB$(3)
304 PRINT#4," "TAB(50)FB$(4)
305 REM PRINT#4," "TAB(50)FB$(5)
306 REM PRINT#4," "TAB(50)FB$(6)
307 REM PRINT#4," "TAB(50)FB$(7)
308 PRINT#4,CHR$(10)
309 GOTO269
310 PRINT"[158]INPUT MARGIN SET"
311 INPUTR:GOTO260
312 PRINT"DO YOU WANT TO PRINT ALL FIELDS?         Y[146]-YES OR N[146]-NO"
313 INPUTM$:IFM$="Y"THENX3=7:Q=0:A1=0:GOTO316
314 IFM$<>"N"THEN312
315 X3=4:A1=0:Q=0
316 IFX3=7THENQ1=14
317 IFX3=4THENQ1=22
318 FORX=1TO664:IFA%(X)<>0THEN320
319 GOTO54
320 IFQ=Q1THEN334
321 Q=Q+1:F=A%(X):GOSUB210:IFA1=1THENA1=0:GOTO325
322 FORR=1TOX3:BB$(R)=FB$(R):A3%(R)=LEN(FB$(R)):NEXTR:A1=1
323 PRINTBB$(1);BB$(2);BB$(3);BB$(4);BB$(5);BB$(6);BB$(7)
324 NEXTX
325 FORR=1TOX3
326 OPEN4,4:A2=45-A3%(R):PRINT#4,BB$(R)TAB(A2)FB$(R)
327 CLOSE4:NEXTR:OPEN4,4:CMD4:PRINT:PRINT:PRINT#4:CLOSE4:NEXTX
328 GOSUB238
329 PRINT#15,"U1:";CH;FD;FT;FS
330 PRINT#15,"B-P:";CH;FP
331 GOSUB227:FI=FX
332 INPUT#CH,FB$(FI)
333 RETURN
334 IFQ1=14THEN337
335 REM:OPEN4,4:CMD4:PRINT:PRINT#4:CLOSE4
336 Q=0:GOTO321
337 OPEN4,4:CMD4:PRINT:PRINT:PRINT:PRINT#4:CLOSE4
338 Q=0:GOTO321
339 REM GOSUB5400
340 FORX=1TOY-1:F=A%(X):GOSUB207
341 CLOSE2:CLOSE15
342 OPEN15,9,15:OPEN2,9,2,"#"
343 GOSUB218
344 CLOSE15:CLOSE2
345 PRINT"[158]WAIT!     [157][157][157][157][157]"
346 OPEN15,8,15:OPEN2,8,2,"#"
347 NEXTX
348 CLOSE2:CLOSE15:OPEN15,9,15
349 OPEN5,9,5,"0:INDEX,S,W"
350 FORI=1TO664:PRINT#5,I$(I);CHR$(13);
351 NEXTI:CLOSE5:CLOSE15:CLOSE2:OPEN15,8,15,"I0":OPEN2,8,2,"#"
352 GOTO54
353 PRINT"[147]DO YOU WISH TO NEW DISK?":PRINT"Y[146]=YES N[146]=NO[158]"
354 INPUTS$
355 IFS$="N"THENRETURN
356 IFS$="Y"THEN357
357 PRINT"INSERT NEW DISK IN #9"
358 PRINT"PRESS 'C' WHEN READY  "
359 GETY$:IFY$=""THEN359
360 IFY$="C"THEN361
361 PRINT"[147]NEWING DISK #9. PLEASE WAIT"
362 OPEN1,9,15,"N0:DATA FILE,QQ"
363 CLOSE1:RETURN
364 A$=""
365 FORL=1TO1000
366 PRINT""
367 PRINTTAB(2)A$;"HIT RETURN TO CONTINUE"
368 GETR$:IFR$=CHR$(13)THENRETURN
369 FORI=1TO333:NEXT
370 IFA$=""THENA$="[146]":GOTO372
371 IFA$="[146]"THENA$="":GOTO372
372 NEXTL